Filename	(eval 1117)[/usr/share/perl5/CGI.pm:932]
Statements	Executed 20 statements in 71µs
Eval Invoked At	/usr/share/perl5/CGI.pm line 932
Sibling evals	1, 2, 3, 4, 5, 6

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
0	0	0	0s	0s	CGI::::deleteCGI::delete

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package CGI; #### Method: delete
2					# Deletes the named parameter entirely.
3					####
4					sub delete {
5	2	15µs	10	20µs	my($self,@p) = self_or_default(@_); # spent 20µs making 10 calls to CGI::self_or_default, avg 2µs/call
6	2	24µs	10	207µs	my(@names) = rearrange([NAME],@p); # spent 207µs making 10 calls to CGI::Util::rearrange, avg 21µs/call
7	2	2µs			my @to_delete = ref($names[0]) eq 'ARRAY' ? @$names[0] : @names;
8	2	600ns			my %to_delete;
9	2	2µs			for my $name (@to_delete)
10					{
11	2	1µs			CORE::delete $self->{param}{$name};
12	2	700ns			CORE::delete $self->{'.fieldnames'}->{$name};
13	2	6µs			$to_delete{$name}++;
14					}
15	2	18µs	10	54µs	@{$self->{'.parameters'}}=grep { !exists($to_delete{$_}) } $self->param(); # spent 54µs making 10 calls to CGI::param, avg 5µs/call
16	2	2µs			return;
17					}
18
19					;